(open-network-stream-server): Pass on optional args

sentinel and filter to make-network-process (from Luke Gorrie).

diff --git a/lisp/simple.el b/lisp/simple.el
index a27010470575e038b4ff2de76c69fc3686e1ddbe..95b89eab04d011556d7d94e3f611ae8715a7b08d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4328,7 +4328,8 @@ functions to be used for the client processes; the server process
 does not use these function."
   (if (featurep 'make-network-process '(:server t))
       (make-network-process :name name :buffer buffer
-                           :service service :server t :noquery t)))
+                           :service service :server t :noquery t
+                           :sentinel sentinel :filter filter)))
 
 ))  ;; (featurep 'make-network-process)